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ABSTRACT 

A personnel system is simulated so that the personnel planner can 
use this simulation as a tool to help solve manpower problems utilizing 
the benefits of a computer. The input parameters are time in grade and 
time in the system of each individual, the manpower requirements in 
each grade, annual input to the system, and the number of years to run 
the simulation. The dynamic properties of the simulation are loss rates 
and promotion rates. A decision maker runs the model to determine the 
effects of changes in the input parameters. One of the problems that 
can be solved with the model is manpower shortage . A sample problem is 
presented. Flowcharts and a listing of the Fortran program are included. 
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I. INTRODUCTION 



Personnel systems composed of a formal rank or grade structure that 
utilize a promotion procedure to move persons through or out of the 
system are commonplace in modern large organizations. A classical ex- 
ample is the corps of the military services of any country. Because of 
the universality of such systems , the problems of maintaining stability 
within the systems may also be common to them. Accordingly, I am going 
to focus my study on a navy personnel system, that could be found in 
any small or mid-size military organization. 

The purpose of the study of such a system is to develop a model to 
simulate the system so that the personnel planner can use this simula- 
tion as a tool. 

Traditionally, it was relatively easy in the navy to forecast and 
preserve the stability of the system because of sufficient manpower. 

The personnel planner could operate with "rules of thumb" with no diffi- 
culty. But now maintaining the system is more difficult because of 
problems in recruiting and the longer time spent in training personnel 
as a result of the greater complexity of the weapons. There are also 
the constraints of manpower resources and the budget and several other 
new problem areas . As a result effective management of personnel re- 
sources has become an increasingly critical element of a navy's ability 
to meet its operational commitments and achieve its long-range objectives. 

Personnel management is associated with many programs, plans, and 
policies whose purpose is to initiate and control the flow of personnel 
through the system to insure sufficient personnel resources in the 
various occupational specialties or ratings for each grade at specific 
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points in time. There are four fundamental but interrelated tasks 
involved in personnel planning: 

1 . Maintain personnel inventories to accomplish a spectrum of 
naval missions. 

2. Project current inventories forward in order to determine the 
feasibility of meeting future needs. 

3. Compare future requirements and predicted resources to deter- 
mine areas of potential shortage or surplus. This is necessary 
to prevent or correct imbalances or deficiencies before they 
become critical ; that is, before corrective action is either 
impossible or very costly. 

li. Analyze the projected effects of present and proposed personnel 
policies in order to evaluate the possible outcomes. To do 
this, it may be desirable to test the feasibility of changes 
by programming those changes in a model which simulates the 
behavior of the personnel system. 

A conventional personnel cycle (as described in Ref. 1 ) functions 
as shown in Figure 1 . A planning data base provides input to the pro- 
jection module in the form of starting inventories and rates of change. 
The projection model acts on these inventories by calculating the major 
input output flow in the personnel system and producing a projection of 
the force, by size and composition, at specified times in the future. 

This output then becomes input for programs which produce plans for 
career development, enlisted advancement, strength management, training 
input, and personnel policy evaluation. The execution of such plans 
triggers retirement, promotion, separation, and training actions through- 
out the system. These actions are consequently recorded by the personnel 
accounting system and become new input for the data base. 
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FIGURE 1. PERSONNEL PLANNING CYCLE 



The specific purpose of this paper is to develop, analyze, and 
simulate a projection model of such a navy officer system. The goal 
that is sought is to create a tool to help the personnel manager solve 
the types of problems enumerated above using the benefits of a computer. 
Since the personnel planner is a manager and has to worry about the 
substance of the problem in order to solve it in any optimal way, to 

i 

divert his attention to the techniques of solving it is obviously 
detrimental. Thus, the idea is to develop a computerized simulation 
to give to the manager the technique to solve the problem without taking 
his attention away from the substance of the problem. This projection 
model will permit the personnel planner to accommodate rapidly to modi- 
fications in requirements and to detect problem areas, such as shortage 
or surplus of personnel at a point in time and in grade. The projection 
model will also provide the tool to test alternative manpower plans and 
policies prior to the implementation. 



II. MODEL FORMULATION 



To build the model, I am going to take as an example the officer 
corps of a navy organization. 

A. GRADE STRUCTURE 

The input to this system is through the naval academy only. There 
are five years of study before entering the officer system. The losses 
in this part are not going to be considered, so the number of cadets 
entering the academy are going to enter the officer system after five 
years . 

The first contract to serve is made for 7 years starting the day 
of entering the -officer system. Then there is no further contract so 
separation by resignation is possible. 

The system is composed of eight grades. They are: ensign(Pl ), 

lieutenant junior grade (P2), lieutenant (P3), lieutenant commander (Plj), 
commander (P5), captain (P6), rear admiral (P7), and vice admiral (P8). 

There are two consideration in each grade: the minimum time in the 

grade to be eligible for promotion and the maximum permissible time in 
each grade. These considerations are different for each grade and are 
in Table I. 

For ensign, three years is the minimum requirement and four the 
maximum. This means that an ensign will be eligible for promotion only 
one time before being forced to leave the system if he is not promoted. 
Similar restrictions apply to the other grades. 

For Vice Admiral there is no minimum time for promotion because it 
is the highest grade in the system, and the maximum does not exist in 
terms of time in grade . The maximum time in the system is 35 years . 
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TABLE I 



MINIMUM AND MAXIMUM TIMES IN GRADE FOR EACH GRADE 



CODE 


GRADE 


MINIMUM REQUIRED 
TIME IN GRADE 


MAXIMUM PERMISSIBLE 
TIME IN GRADE 


PI 


ENSIGN 


3 


h 


P2 


LIEUTENANT J.G. 


3 


6 


P3 


LIEUTENANT 


h 


10 


Pi; 


LT. COMMANDER 


h 


8 


P5 


COMMANDER 


h 


8 


p6 


CAPTAIN 


h 


8 


P7 


REAR ADMIRAL 


h 


8 


P8 


VICE ADMIRAL 




maximum time 
in the system 
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Bo LOSSES 



The losses in each grade because of different reasons such as death; 
retirement; or resignations are lumped together. The percent losses in 
each grade, with the exception of lieutenant, are shown in Table II. 

For lieutenants, the analysis is made more in depth because it is con- 
sidered the more critical grade in the system for several reasons. 

First, this is the grade where losses are greater than in any other be- 
cause in this grade the contract to serve expires. Second, the promotion 
flow beings to slow for reasons inherent in this type of system. There- 
fore, the officers with 6, 7, 8 and 9 years in the grade have differ- 

ent loss rates as shown in Table III. Those with 5 years have a loss 
rate of because they have already one passover for promotion. The 
large loss rate at 8 and 9 years is due to the fact that these officers 
begin to realize that they will, in all likelihood, be forced out at 
10 years and, accordingly, begin searching for other careers. With 10 
years, everybody goes out because that is the maximum time in the grade. 

C. PROMOTION POLICIES 

Once a year there are promotions, and the mechanics for this are the 
following : 

First, there is a check as to what vice admirals are going to retire 
because of time in the service. Then the requirements for this grade 
are compared against the actual population and the vacancies are deter- 
mined. The population of rear admirals ready is then analyzed and a 
list is formed with all the rear admirals ready to be promoted. Then 
rear admirals from this list are promoted to fill the vice admiral 
requirements. Sometimes this is not achieved because the list is smaller 
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TABLE II 



ANNUAL LOSS RATES FOR ALL GRADES EXCEPT LIEUTENANTS* 



CODE 


GRADE 


PERCENT LOSSES PER YEAR 


PI 


ENSIGN 


0 


P2 


LIEUTENANT J. G. 


2 


Pit 


LT. COMMANDERS 


2 


P5 


COMMANDERS 


2 


P6 


CAPTAINS 


2 


P7 


REAR ADMIRALS 


2 


P8 


VICE ADMIRALS 


1 



* Excludes losses due to excess time in grade. 
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TABLE III 



ANNUAL LOSS RATE FOR LIEUTENANTS BY TIME IN GRADE* 



TIME IN GRADE (P3) 



% LOSS RATE 



5 30 

6 20 



7 ' 10 
8 80 



9 



80 



-x-Excludes losses due to excess time in grade. 
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than the number of vacancies. Moreover* for the rear admirals there 
are only three opportunities to be promoted. This means that a parti- 
cular rear admiral can only repeat 3 times in the list above mentioned. 

After the number of rear admirals to be promoted is calculated* the 
vacancies for rear admiral are determined based on requirements and the 
population of rear admirals* less those to be promoted. A similar 
analysis is made to determine the priority of captains to be promoted 
to rear admiral. In the case of the commanders* lieutenant commander* 
lieutenant and lieutenant junior grade the analysis for calculating the 
vacancies is similar* and the procedures to determine the ones to be 
promoted is also similar. 

In the case of cadets to be promoted to ensigns, the procedures are 
different because all the cadets in the fifth grade are going to be 
promoted to ensign after passing their final examinations regardless 
of what the vacancies are for ensign. In other words* the vacancies 
for ensign are not taken into account to promote the last year cadets. 
The promotions from one cadet year to the next are only based on exams 
and not on requirements. Only the input to the academy is based on 
requirements. An example of the advancement methodology used in this 
system is shown in Table IV. 

D. INPUT PARAMETERS 

The input parameters to the model of the system are the number of 
cadets entering to the system* the requirement in each grade* the number 
of people in each grade at any specific time* and the number of years 
the model is to run. 

The model must keep track of the time in grade and total time in 
the service for each element of the system. 
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ADVANCEMENT METHODOLOGY 
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Ill . THE IMPLEMENTATION 



A. OVERVIEW OF THE IMPLEMENTATION 

The primary motivation for the implementation was that the program 
had to produce an output that a personnel planner could use to solve 
problems. This meant that the implementation had to be simple enough 
for the personnel planner to know what the program was doing without 
much computer or programming knowledge. It also had to be very versa- 
tile in order to be applicable to many personnel systems similar to the 
one described and versatile in adapting to policy changes in the dis- 
tributions of losses and promotions. Another characteristic required 
of the program was that the output had to be in a form that provided 
just enough information to the personnel planner in a very easy form 
to read. Excessive amounts of information would be considered undesir- 
able. These were the basic requirements of the implementation program. 

In order to meet these requirements the approach was to build 
different programs for the basic functions. One program was devised to 
calculate all the losses to the system; another program, to promote and 
advance the people in time; and the third program, to produce the cor- 
rect output. These three programs were to be driven by a monitor pro- 
gram to read the initial data of the system and run the model for the 
time desired. The program in charge of the losses to the system was 
called OUT, the one able to promote and advance in time was called 
AVANCE, and the one that produce the output was called OUTPUT. The 
whole program kept track of time in the system and time in grade at 
any moment for each member of the system being modeled. 
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This vxas done with a four digit number for each member. The first 
two digits were the time in the actual grade and the last two, the total 
time in the system. 

In summaiy , the basic approach was as follows : 




A listing of the Fortran program is available in Appendix C. 

B. THE OUT PROGRAM (FIGURE 2) 

This program calculates all the losses to the system and applies 
these losses to the data base. The different reasons to go out of the 
system are more than 35 years in the system, number of years in grade, 
death, resignation, medical reasons and others. In this program the 
first two reasons are considered as two separate items. The other 
reasons will be combined as one. 

The purpose in doing this is to keep a probabilistic orientation to 
the program. The distribution of losses is presently arbitrary, but 
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when the program is used in the real system, it would be possible to 
calculate the distributions based upon past data. The flowchart of the 
program is given in Figure 2 . 

C. THE AVANCE PROGRAM (FIGURE 3) 

This program designates individuals for promotion, promotes the 
necessary number, and advances one year in time all the people in the 
system. The way this is implemented is clear in the general flowchart, 
but to complement that description the following additional details are 
given . 

First the vice-admirals are advanced one year. Then rear-admirals 
with U, 5 and 6 years in grade are placed in three vectors (VEC1 , VEC2, 
VEC3), respectively. The rear-admirals to be promoted come from these 
three vectors (See Appendix A). 

This is done by forming a vector (R0L1 ) using a routine called PROL 
and another subroutine called ROLNO. 

The subroutine ROLNO takes people from the three vectors and builds 
a list (R0L1 ) designating the order for promotion. 

The subroutines PROL, SROL, TROL, CROL, QROL, SROL and SEROL desig- 
nate the particular order to pick persons from the three vectors by 
ROLNO, according to the particular grade in the system. 

After all rear-admirals qualified for promotion have been ordered 
(R0L1 ), the number to be promoted is determined by taking the smaller 
between those qualified for promotion and the necessary number to cover 
requirements for vice admirals. 

The same procedure is used for the other grades, but the subroutine 
PROL is replaced by SROL in captains, TROL in commanders, CROL in lieu- 
tenant commanders, QROL in lieutenants, SROL in lieutenant junior grade. 
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FIGURE 2. SUBROUTINE OUT 



* - . 

TAKE OUT 20 in 
OF ?3 WITH 6 
YEARS IN GRADE 



2 

TAKE OUT 30/o 
OF P 3 WITH 5 
Y^ARS IN GRADE 



TAKE OUT P2 
WITH 35 YEARS 
IN SYSTEM 



£ 

TAKE OUT P2 
WITH MORE THAN 
6 YEARS IN GRADE 



S 

TAKE OUT 2 % OF P2 



TAKE OUT PI 
WITH 35 YEARS 
IN SYSTEM 

1 

TAKE OUT PI 
WITH MORE THAN 
A YEARS IN GRADE 
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PROMOTE THE PEOPLE 
FROM ROL1 TO '''OVER 
THE REQUIREMENTS 
FOR P8 




FIGURE 3. SUBROUTINE AVANCE 



and SEROL in ensigns. Each of the subroutines call the subroutine ROLNO 
to form the promotion list (R0L1 ) for each grade (See Appendix B). 

The input to the system is also driven by this program. At each 
cycle the cadets go to the next year of the academy, and the cadets in 
the fifth year are promoted to ensign without checking the vacancies 
for ensigns. In other words , all the cadets in the last year of the 
academy always go to ensign. 

D. THE OUTPUT PROGRAM 

The OUTPUT program is implemented to produce four different forms 
of output. 

To produce any of the particular forms of output one must call it 
with a number 1 , k or 5 . The outputs produced are first (number 1 ) 
a list of all the people in the system at that moment. 

Calling the subroutine OUTPUT with the number 3 provides graphs of 
each grade which plot the number of people in the grade on the Y axis 
and the number of years of simulation on the X axis . Calling the sub- 
routine OUTPUT with the number Ij. will result in a table with the number 
of promotions in each grade and each year of simulation. Calling with 
the number 5 will produce a listing of the requirements for each grade 
and the number of people entering the academy in that year. Before 
calling the subroutine with the number 3> however , it has to be called 
with the number 2 each cycle of the-crun in order to provide the infor- 
mation necessary for the plotting. 

E. THE MONITOR PROGRAM (FIGURE U) 

The monitor program has to perform several fixed and some optional 
functions . The fixed functions are : read the initial data of the system. 
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the requirements in each grade, the number of people entering the system, 
and the number of cycles of the simulation. 

The optional functions change the requirements during a simulation 
run and change the input to the system during the same run. The way 
this program handles the three major subroutines OUT, AVANCE, and 
OUTPUT is veiy much up to the designer of the simulation experiment. 

An example could be to run the model for 20 years and each year call 
subroutine OUT, then AVANCE, and after the 20 cycles, call OUTPUT. 

Another example could be to run for 20 years, call OUT and AVANCE each 
cycle, but in the fifth cycle change the requirements and after the 
twentieth cycle, call OUTPUT. These examples illustrate the versatility 
of the program and the requirements placed on the art of the designer 
of the experiment to be able to perform what he is asked to. 

F. VERIFICATION AND VALIDATION 

The verification of the simulation model was done in the following 
manner. The model was run for 20 years and each time it completed each 
subroutine, an output listing the contents of the data base was called 
that is, the contents of all the arrays. With this output, it was poss- 
ible to check the working of each subroutine. After this check, changes 
were made to the input and the subsequent output was checked with the 
logic of the function. That is, for example, there has to be an increase 
in the number of people in the first grade only. 

In experiments with a real system, the validation of the model would 
be a straightforward empirical matter, but actual losses and advance- 
ments would be used instead of the present case with an arbitrary 
personnel system /Ref. 27. 
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FIGURE 4. MONITOR PROGRAM 
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IV . SAMPLE PROBLEM 



In this section, a simple personnel problem will be posed, and the 
program will be used to examine the consequences of possible solutions . 
First, in order to have the system ready for experimenting, we had to 
observe it and put in a sequence of values for persons entering the 
system (INGO) so that the system was stabilized. That is, the flow of 
personnel had to be smooth and continuous and the requirements for each 
grades were being met over a 30-year period of time. It was assumed, 
as previously explained, that the time permissible in grade is invari- 
able. This could be because the minimum and maximum times in grade are 
determined by regulations or laws, and it is not in the power of only 
one organization to change it. Further, it was assumed that the input 
to the system is through the Naval Academy only, it is not possible to 
skip grades, and losses for various causes are as stated in Section II. 

The problem posed was a change in requirements for some grades. 

That is, in five years from now the requirements for the first three 
grades, namely ensigns, lieutenants junior grade, and lieutenants are 
going to change in the following manner: 



CODE 


GRADE 


ACTUAL 

REQUIREMENTS 


WITH THE 
CHANGE 


PI 


Ensigns 


120 


160 


P2 


Lieutenants J. G. 


120 


160 


P3 


Lieutenants 


130 


180 
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This change could be the result of a ship acquisition. The delivery 
is going to be in 5 years, and we want to be sure that in that time we 
are going to have the necessary people to run the ship in an efficient 
way. This means that we have to have the necessary number and in the 
appropriate grades, resulting in the change of requirements shown. 

Since each year there is a loss of manpower from people that reach 
the maximum permissible time in a grade and are not promoted, when a 
change of requirements comes it could be the case that all of these per- 
sons could be promoted and cover all the vacancies in the next higher 
rank created by the change of requirements. The first possible solution 
is to investigate if this is the case. 

In order to test this alternative we run the model for 30 years 
changing only the requirements in the year 5 but keeping the input fixed. 
That is, the input to the system through the Naval Academy will be the 
same before and after the change of requirements . 

Figures 5a, 5b and 5c show the behavior of grades Pi , P2 and P3 to 
this alternative. The other grades are not shown here because they are 
stable, their requirements are being met, and there have not been any 
changes in their requirements. 

From Figure 5c we can see that in rank P3 in the fifth year, when 
the change of requirements was implemented and we promoted all the P2 
eligible for promotion, there was not a sufficient increase to meet the 
new requirements. The P3 force went only to 150 men. This means that 
in that year, if no change of requirements were made, there were 30 P2 
in the promotion list who would not have been promoted to P3« Some of 
these would have been forced to go out of the system because they reached 
the maximum permissible time in the grade, and some would have another 
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MEN 



a. BEHAVIOR OF PI (ensigns) . 
200 




15 30 

YEARS 



b. BEHAVIOR P2 (lieutenants J.G.). 
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MEN 



c.BEHAVIOR OF P3 (lieutenants). 




FIGURE 5. Response of the personnel system in the first three 
grades to changing requirements without a change in input. 
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opportunity to be promoted next year. The shortages continue for the 
next 2 years, and the requirements are not met until the 5th year after 
the change of requirements. 

In P2 the response is completely different as one can see in Figure 
5b. The requirements are never met and every year P2 is short of man- 
power. 

A similar case is PI shown in Figure 5a. 

What we have accomplished with this exercise is that we know that a 
problem of shortages in the three first grades is going to exist for 3 
years in P3 and forever in P2 and PI . This is the first purpose of the 
model to locate the problem area. The next step is how to solve the 
problem. 

Since we do not have a mathematical model for this system we cannot 
find a mathematical formula or process to give us a solution. Thus, a 
solution can be reached by two approaches. One is using the model to 
help us find a sequence of inputs so that the grades in question can 

meet their requirements in the shortest possible time and after that be 

stable. This can be accomplished by testing several sequences of inputs 
and analyze their outputs in a very informal and qualitative manner. 

The other approach is to use the computer simulation only to test 
some solution that was reached by some other method such as experience, 
mathematical modeling /Ref. 3 & k7 or any other ^source . In this case 
the computer simulation is used to see what the behavior of the system 
is with respect to such solutions. For example, we could have a mathe- 
matical model of a part of the system that could be the source of a 

possible solution. By using only this mathematical model, we cannot be 
certain if that is the optimal one. That is why we want to test it in 
the computer model. 
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The approach we took in this paper is the first one; that is, to 
use the computer model -to find and test the solution. That was done by- 
testing different sequences and analyzing their outputs clinically to 
reach a solution. The solution was to use the following sequence of 
annual student input to the Naval Academy — 5ii, 86, If) , lj.0, 60, 25, %k, 
7h } l;0, 65, — for the first 10 years, after which the annual input would 
stabilize at h7 • The effects of this solution are shown in Figures 6a, 
6b and 6c. The graphs of only PI, P2 and P3 are shown because they are 
the only ones affected by the change and are where the problem area was 
located. Nevertheless after reaching a solution we have to be sure that 
the other grades are not affected in a negative way, but in this case 
they kept stable. 

As one can see in Figure 6c, P3 still has 3 years after the change 
of requirement where they are not met. This is because input to the 
system in year one cannot affect P3 until year 12 due to the fact that, 
at the very minimum, the input has to go through 5 years in the academy, 
3 as ensign (PI ) and 3 as lieutenant J.G. (P2) to reach P3« 

As observed in Figure 5b, P2 was a critical grade because it never 
met its requirements. In Figure 6b one can see that the requirements 
are reached in U years after the change and is stable with some very 
small shortage in years 1 1;, 15 , 1 6, 22, 23 and 2h> 

In Figure 6a once can see that PI has a stable wave with an average 
of 1 60 persons. In this grade, since the promotion from cadet to ensign 
(PI ) is not based on vacancies as in all the other grades, the stabili- 
zation comes to be a cyclic curve, the same shape that we have in the 
stable system before any change in requirements occurred. 
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BEHAVIOR OF PI (ensigns) . 



a . 




b. BEHAVIOR OF P2 (lieutenants J.G.). 
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MEN 



c. BEHAVIOR OF P3 (lieutenants). 




FIGURE 6. Response of the personnel system in the first three 
grades to changing requirements and introducing an input 



sequence . 
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This solution reached in this particular problem is not by any 
means the only one or the' optimal one. Since the losses and time in 
grade parameters were arbitrarily determined, and no personnel overages 
are permitted in the program, perhaps no solution to the problem would 
be desirable without changing these parameters. But, as expressed in 
the beginning of this paper, the whole purpose of having such a computer 
simulation is to test different policies in a "what would happen if" 
basis, and this is fully accomplished in this problem. 
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V. CONCLUSION 



A personnel system is simulated so that the personnel planner can 
use this simulation as a tool to help solve manpower problems utilizing 
the benefits of a computer. The input parameters are time in grade and 
time in the system of each individual, the manpower requirements in 
each grade, annual input to the system, and the number of years to run 
the simulation. 

The dynamic properties of the simulation are loss rates and promo- 
tion rates. A decision maker runs the model to determine the effects 
of changes in the input parameters. 

A sample problem was presented. Flowcharts and a listing of the 
Fortran program are included in the appendixes. 

This model is designed to be very flexible. Therefore, for a system 
with the same structure as the one described in this paper, but with 
different rates of losses or different rates of promotion, it can be 
easily implemented because the subroutines that perform these functions 
can be very easily adapted or modified . 

After the model is ready for use, it is up to the imagination of 
the programmer to build the experiment and be able to have the desired 
output — in other words, be able to answer the personnel planner's 
question. 

Any experiment using a computer simulation is still an art and a 
very interesting field of investigation. I encourage students to con- 
tinue investigating this exciting part of computer science. 
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APPENDIX A PROMOTION ALGORITHM 
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APPENDIX B SUBROUTINE ROLNO (Input Parameters I, BALL) • 
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APPENDIX C COMPUTER PROGRAM 



THIS 
OF A 
OUT, 



IS A SIMULATION OF A PERSONNEL SYSTEM , IT CONSISTS 
MONITOR PROGRAM AND THREE MAJOR SUBROUTINES 
AVANCE, OUTPUT. 

OUT. CALCULATES ALL THE LOSSES TO THE SYSTEM. 
AVANCE. COMPUTES THE PEOPLE ABLE FOR PROMOTION, 
PROMOTES THE NECESSARY NUMBER, AND ADVANCES ONE 
YEAR IN TIME ALL THE FORCE. 

OUTPUT. IS A SUBROUTINE THAT MANAGES THE OUTPUT 
OF THE PROGRAM, THIS OUTPUT IS PRODUCED IN 
FOUR FORMS. TO PRODUCE ANY OF THE DIFFERENT 
OUTPUTS ONE HAS TO CALL IT WITH THE NUMBER 
If 3, 4 OR 5. 



THE NUMBER: 



C 
C 
C 
C 
C 
C 

/ /VARG2296 JOB ( 2296 , 0900FT, CS 14) ,« VARGAS L»,TIME=1 
// EXEC F0RTCLG,REGI0N.G0=110K 
//FORT.SYSIN DD DSNA ME =SS P3 ( PL OT P) , DI S P =SHR 
// DD * 

C 

c 
c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C THE VECTOR AFRA REPRESENTS THE FIRST GRADE PI, TESE 
C REPRESENTS P2 , TEPRI REPRESENTS P3, CORBE REPRESENTS P4 

C CAFRA REPRESENTS P5, CANAV REPRESENTS P6 , CALM REPRESENTS 

C P 7 , AND VALM REPRESENTS P8. 



1 PRODUCES AN OUTPUT LISTING 
OF THE DATA BASE. 



ALL THE CONTENTS 



3 PRODUCES A PLOTTING FOR EACH GRADE OF THE 
QUANTITY OF PEOPLE IN THE Y AXIS AND THE 
YEAR OF SIMULATION IN THE X AXIS. 

THIS CALL HAS TO BE AT THE END OF THE 
SIMULATION BUT IN ORDER TO 
VECTORS OF INFORMATION ONE 
SUBROUTINE WITH THE NUMBER 
THE SIMULATION. 



FILL THE NECESSARY 
HAS TO CALL THIS 
2 EACH CYCLE OF 



4 PRODUCES A TABLE SHOWING THE NUMBER 
PEOPLE PROMOTED FROM ONE GRADE TO THE 
EACH YEAR OF SIMULATION. 



OF 

NEXT 



LISTING OF THE VALUES OF 
IN EACH GRADE EACH YEAR, 

INPUT TO THE SYSTEM EACH 
THE CYCLE NUMBER, AND THE NUMBER OF CADETS 
IN EACH YEAR OF THE ACADEMY, EACH YEAR 



5 PRODUCES A 
REQUIREMENTS 
VALUE OF THE 



THE 

YEAR, 



3 8 



oonnnoooooonnnonnoonnoonoononn 



THE SUBROUTINE AVANCE CALLS THE SUBROUTINES PROL, SROL, 
TROL, CROL, OROL, SROL, SEROL. 

EACH OF THESESUBROUTINES CALLS SUBROUTINE ROLNO TO PERFORM 
THE FUNCTION OF FORMING THE PROMOTION LIST FOR EACH GRADE 
WHICH SUBROUTINE AVANCE NEEDS TO PROMOTE THE NECESSARY 
PEOPLE TO MEET REQUIREMENTS. 

THESESEVEN SUBROUTINE , ONE FOR EACH GRADE EXCEPT P8 
BECAUSE THERE IS NO PROMOTION FROM P8, DETERMINES IN A 
PROBABILISTIC MANNER THE ORDER IN THE PROMOTION LIST OF 
THE PEOPLE ABLE F CR PROMOTION. 



CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 



MONITOR PROGRAM PROGRAMA MONITOR 



IMPLICIT INTEGER(A-Y) 

COMMON/NADA/ AFRA(200), TESE(200), TEPRK200), 

1CORBE (150) , CAFRA(IOO) ,CANAV(80 ) , CALMI50), VALM(IO), 
2ENTA( 10) ,ENTB( 50) ,ENTC( 80) ,ENTD( 100) ,ENTE ( 150) ♦ 

3 ENT F{ 200 ),ENTG(2 00 ) , ENT H ( 200 ) , QUE 1 , QUE 2 , QUE 3 , 
4QUE4,0UE5,QUE6 , QUE 7 , 0UE8 , VEC1 ( 200 ) , V EC2 ( 20 0 ) , 

5VEC31 200 ) » R0L1 (600) , I X , K 1 , K3 , K2 » KK , L L , MM , I NGO , 
6CADET(5 ) ,REKIS ( 8 ) , CY, Z 1 ( 100 ) , A 1 { 50 ) , A2 ( 5 0 ) , A3( 50) , 
7A4( 50) ,A5( 50) , A6(50) ,A7(50) .CYCLE 
DO 10 1 = 1,200 
RE AD (5 ,100) AFRA(I) 

10 CONTINUE 

DO 11 1=1,200 
READ ( 5 , 1 00) TESE(I) 

11 CONTINUE 

DO 12 1=1,200 

RE AD( 5 , 1 00) TEPRI(I) 

12 CONTINUE 

DO 13 1=1,150 

RE AD { 5 , 1 00) CORBE(I) 

13 CONTINUE 

DO 14 1=1, 100 

RE AD (5, 100) CAFRA(I) 

Z 1 ( I )= I 

14 CONTINUE 

DO 15 1=1,80 

READ (5, 100) CANAV(I) 

15 CONTINUE 

DC 16 1=1,50 

READ ( 5 , 100 ) CALM ( I ) 

16 CONTINUE 

DO 17 1=1,10 

READ ( 5 , 100) VALM ( I ) 

17 CONTINUE 

DO 18 1=1,5 

RE AD ( 5 , 1 00 ) CADET(I) 

18 CONTINUE 

DO 19 1=1,8 

RE AD (5 ,100 ) RE K IS ( I ) 

19 CONTINUE 

READ ( 5 , 100) CYCLE 
CY =CYCLE 
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100 FORMAT (14) 



THIS PART IS DEPENDENT OF THE PARTICULAR 
USE OF THE MODEL 

ESTA PARTE ES D EP END I ENT E DE LO QUE SE QUIERA 
HACER CON EL MODELO 



1000 CALL OUTPUT! 2) 

READ! 5 , 100 ) INGO 
CALL OUTPUT ! 5 ) 

CALL OUT 

CALL AVANCE 
CYCLE =C YCL E-l 

I F ( C YC L E . EQ. 25 ) GO TO 1001 
IF! CYCLE. NE.O) GO TO 1000 
GO TO 1002 

1001 REK I S ( 6 ) = 1 80 
REK IS ( 7 ) =1 60 
REKIS! 8) =160 
GO TO 1000 

1002 CALL OUTPUT (3) 

CALL OUTPUT ( 4) 

STOP 

END 



SUBROUTINE OUTPUT(NO) 



THIS SUBROUTINE DRIVES ALL THE OUTPUTS OF THE PROGRAM 
ESTA SUBRUTINA MANEJA TODO LO QUE SE VA A IMPRIMIR 
IMPLICIT INTEGER! A-Y ) 

COMMON/NADA/ AFRA1200), TESE1200), TEPRI1200), 

1 CORBE (150), CAFRA! 100) ,CANAV(80) , CALM(50), VALM(IO), 
2 E N T A ( 1 0 ) ,ENTB(50) , ENTC180) , ENT D ( 100 ) , ENT E ( 150 ) , 

3ENTF (200) ,ENTG(200) ,E NTH (200) , QUE1 , QU E2 , QU E3 , 
4QUE4,QUE5,QUE6,QUE7,QUE8,VEC1! 200) , VEC2! 200) , 

5VEC3(2 00) . R0L1 (6 00 ) , IX,K1,K3 , K2 ,KK,LL,MM, INGO, 

6CADET ( 5) ,REKIS! 8) ,CY,Z1( 100) ,A1(50) ,A2(50) ,A3(50) , 
7A4(50) , A5(50 ), A6 ( 50 ) , A7 ( 50 ) , CYCLE 
DIMENSION Z2(100) ,Z3!100) ,Z4(100) ,Z5(100), Z6(100), 

1 Z7 ( 100 ) ,Z8( 100) , Z 9 ( 100) 



GO TO ( 11, 12, 13, 14, 15) ,N0 
11 WRI TE { 6 , 107 ) 

DO 1 1=1,10 

WRITE! 6, 101) A FRA! I ) , TESE! I ) , TEPR I ( I ) ,CORBE(I ) , 
1 CAFRA (II , CAN AV (I) , CALM! I ) , VALM! I ) 

1 CONTINUE 

DO 2 1=11,50 

WRITE! 6,102) AF R A ( I ) , TE S E ( I ) ,T E PR I ( I ) , CO RB E ! I ) , 
1 CAFRA! I ) , CAN AV ( I ) , CALM! I ) 

2 CONTINUE 

DO 3 1=51,80 

WRITE (6, 103) A FRA! I ) , TESE! I ) , TEPR I ( I ) ,CORB E ( I ) , 
1 CAFRA ( I ) , CANAV ! I ) 

3 CONTINUE 

DO 4 1 = 81, 100 



4 



5 



6 

41 

7 



8 



101 

102 

103 

104 

105 

106 
107 



108 

109 

110 
111 
112 

12 



21 

22 

23 

24 

25 



26 



13 



WRITE (6 , 104) AFRA( I ) « TESE ( I ) ,T EPRI !I) ,C0RBE( I ) , 
1CAFRA ( I ) 

CONT INUE 

DO 5 1=101,150 

WRITE! 6, 105) A FR A { I ) , TE SE ( 11 , TE PRI ( I ) , C ORBE ( I ) 

CONT INUE 

DO 6 1=151,200 

WRITE (6, 106) A FRA (I) , TESE (I) , TE PRI t I ) 

CONT INUE 
WRITE (6, 108) 

DO 7 1=1,5 

WRITE(6»109) CADET! I) 

CONTINUE 
WRITE (6,110) 

DO 8 1=1 ,8 

WRITE! 6,109) REKIS(I) 

CONTINUE 

WR ITE ( 6 , 11 1 ) INGO 
WRI TE ( 6 , 112) EYCLE 
FORMAT (• *,8110) 

FORMAT (• • ,711 0) 

FORMAT! • *,6110) 

FORMAT!' ',5110) 

FORMAT!' *,4110) 

FORMAT! • ',3110) 

FORMAT ( ' 1 ' , ' AFRA ',' TESE ',' TEPRI 

1' CORBE ', 

2* CAFRA ',' C ANA V ',' CALM ',' VALM 
FORMAT (• ',' CADET ') 

FORMAT! • ’,110) 

FORMAT ( ' • , • REK IS ' ) 

FORMAT ( ' • , • INGO = • , 110 ) 

FORMAT! ' ' , • CYCLE = ',110) 

RETURN 
VA=0 
C A = 0 
CN=0 
CF =0 
C0 = 0 
T P = 0 
TS =0 
AF =0 

DO 21 1=1, 10 

IF(VALMU).GT.O) VA=VA+1 

CONTINUE 

DO 22 1 = 1,50 

I F ( CALM ( I ) .GT . 0 ) CA=CA+1 

CONTINUE 

DO 23 1=1,80 

IFICANAVU ) .GT .0 ) CN=CN + 1 

CONTINUE 

DO 24 1=1, 100 

I F(CAFRA( I) .GT .0 ) CF=CF+1 

CONTINUE 

DO 25 1=1, 150 

IF(CORBE!I ) .GT .0 ) CG=C0 + 1 

CONTINUE 

DO 26 1=1,200 

IFITEPRI (I) .GT .0 ) T P=T P + 1 

IF(TESE(I) .GT. 0) TS=TS+1 

IF(AFRA! I ) .GT. 0) A F = A F+ 1 

CONTINUE 

Z2 ( CY-CYCLE + 1) =VA 
Z3(CY— CYCLE+1)=CA 
Z4 ( CY— C YCL E+l ) =C N 
Z5(CY-CYCLE+1)=CF 
Z6 ( CY-CY CL E + l ) = CO 
Z7(CY-CYCLE + 1) =TP 
Z8 (CY-CYCLE+1) =TS 
Z9 (CY-CYCLE+1) =AF 
RETURN 

WRITE! 6, 113) 



nnonnnnnnn nnnnnnoo 



113 

114 

115 

116 

117 

118 

119 

120 
14 



31 

121 



122 

15 



FORMAT ( • 1 • ♦ ' V ICEALMI RANTES (VALM) •) 

CALL PLOTP ( Zl, Z2 ,CY ,0) 

WRITE (6, 114) 

FORMAT ('l'.' CONTALMI RANTES (CALM )•) 

CALL PLOTP! Zl, Z3,CY,0) 

WRITE16, 115) 

FORMAT (' 1 ' , ' CAPITANES DE NAVIO ( CANAV ) ') 

CALL PLOTP! Zl, Z4,CY,0) 

WRITE (6, 116 ) 

FORM AT ( ' 1 ' , ' CAPITANES DE FRAGATA (CAFRA) ') 
CALL PLOTP! Zl, Z5 *CY, 0) 

WRITE! 6, 117 ) 



FORMAT! ' 1' , ' CAPITANES 
CALL PLOTP ( Zl, Z6,CY, C) 
WRITE !6 ,118) 

FORMAT! *1',' TENIENTES 
CALL PLOTP! Zl, Z7,CY, 0) 
WRITE (6,119) 



DE CORBETA (CORBE) ' ) 



PRIMEROS (TEPRI) ' ) 



SEGUNDOS (TESE) •) 



DE FRAGATA (AFRA) •) 



CALL PLOTP! Zl, Z8,CY,0) 

WRITE! 6, 120) 

FORMAT! '1',' ALFERECES 
CALL PLOTP! Zl, Z9,CY,0) 

RETURN 

WRITE(6, 121 ) 

DO 31 1=1, CY 

WRITE! 6, 122) All I ) , A 2 ( I ) , A3 ( I ) ,A4(I) ,A5( I ) 

1 A6 ( I ) , A7 ( I ) 

CONTINUE 

FORMAT (' 1' , 'CALM TO VALM 
1 ' CAFRA TO CANAV « 

2 'TEPRI TO CCRBE ' „ 

3 'AFRA TO TESE • ) 

FORMAT { ' O' ,17,6116) 

RETURN 
CY = CY 
GO TO 41 
END 



1 , 'CANAV 
•CORBE TO CAFRA 
• TESE TO TEPRI 



TO 

i . 



CALM 



SUBROUTINE OUT 

THIS SUBROUTINE COMPUTES ALL THE LOSSES 

ESTA SUBRUTINA COMPUTA TODAS LAS PERDIDAS DEL SISTEMA 



IMPLICIT INTEGER(A-Y) 

COMMON/NADA/ AFRA1200), TESE(200), TEPR 1(200), 

1C0RBE ! 15 0) , CAFRA! 100) ,CANAV!80) , CALM ( 5 0 ) , VALM(IO), 
2 ENT A! 10 ) , ENT B l 50 ) , ENTC ( 80) , EN TD ( 100 ) , ENTE ( 150 ) , 

3ENTF (200) , ENTG(200 ) , ENTH1200 ) , QUE1 , QU E2 , QU E3 , 
40UE4,QUE5,0UE6,0UE7,QUE8,VEC 1(200) ,VEC2(200) , 

5VEC3 (200 ) , R0L1 ( 600 ) , I X , K 1 , K 3 , K2 , KK , L L , MM , I NGO, 

6CADE T ( 5 ) ,REKIS(8) ,CY,Z1 (100) ,A1(50) ,A2(50) ,A3!50), 
7A4(50) ,A5( 50), A6(50),A7!50) , CYCLE 
WRITE (6,200 ) 

200 FORMAT! ' O' , 'ENTRC A OUT •) 

C 



1*2 
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V ICE-ADMIRALS 
VICEAL MIR ANTES 

V A=0 
B = 1 

DO 10 1 = 1,10 
A = V A L M ( I ) 

1001 IFIA.LT.100) GO TO 1000 
A = A- 100 

GO TO 1001 

1000 I F ( A . LT . 35 ) GO TO 110 
OU E 1 = 0U E 1 + 1 
VALMII ) =0 

110 I F { VALMII). NE.O) VA=VA+1 
I F ( V AL M ( I) .GT.O ) GO TO 10 
ENTAI B ) =1 
B= B + 1 

10 CONTINUE 
N = VA— 0 UE 1 
P1=IFIX(N*0.01+1) 

1=1 

DO 11 J=1,P1 

1003 IFIVALMI I) .GT.O) GO TO 1002 
1=1 + 1 

GO TO 1003 

1002 ENT A ( B ) = I 
VALMII ) =0 
B = B+ 1 

1 = 1 + 1 

QUE1=QUE1+1 

11 CONTINUE 

RE AR-ADMI RALS 
CONTRALMIRANTES 

CA=0 
C= 1 

DO 12 1 = 1,50 
A=CALM { I ) 

IFIA.GE.800) GO TO 1006 

1005 IFIA.LT . 100 ) GO TO 1004 
A =A— 1 00 

GO TO 1005 

1004 IFIA.LT. 35) GO TO 112 

1006 0UE2 =QUE2+1 
CALM! I ) = 0 

112 IF! CALM (I). NE.O) CA=CA+1 
IFICALM(I).GT.O) GO TO 12 
ENTBIC ) = I 
C=C+1 

12 CONTINUE 
N=CA— OUE 2 
P2=IFIX(N*0.02+1) 

1=1 

DO 13 J = 1, P 2 

1008 IFICALMI I) .GT.O ) GO TO 1007 
1 = 1 + 1 

GO TO 1008 

1007 ENTS ( C ) =1 
C=C+1 
CALM! I ) =0 
1=1 + 1 

QUE2 =QUE 2+ 1 

13 CONTINUE 

CAPTAINS 

CAPITANES DE NAVIO 

CN = 0 
D= 1 

DO 14 1=1,80 
A =CANA V ( I ) 



k3 



noon noon 



IFtA.GE.800) GO TO 1011 

1010 IF(A.LT.ICO) GO TO 1009 
A=A-1 00 

GO TO 1010 

1009 IFtA.LT.35) GO TO 114 

1011 QUE3=QUE 3+ 1 
CANAVI I ) =0 

114 I F t CAN AV 1 1 ) . NE . 0 ) CN=CN+1 
IFtCANAV(I) .GT.O) GO TO 14 
ENTCt D)= I 
D = D+1 

14 CONTINUE 
N=CN-QUE3 

P3 = I FI X(N* 0.02+1 ) 

1=1 

DO 15 J = 1,P3 

1013 I FtCANAVt I ) .GT .0 )G0 TO 1012 
1=1 + 1 

GO TO 1013 

1012 ENTC ( D ) =1 
CANAVt I ) =0 
D = D+ 1 

I =1 + 1 

QUE3 = 0U E 3+ 1 

15 CONTINUE 

COMMANDERS 

CAPITANES DE FRAGATA 

CF=0 
E = 1 

DO 16 I =1,100 
A=CA FRA t I) 

IFtA.GE.800) GO TO 1016 

1015 IF(A.LT.IOO) GO TO 1314 
A= A- 1 00 

GO TO 1015 

1014 IFtA.LT.35) GO TO 116 

1016 OU E4=QU E 4+ 1 
CAFRAt I } =0 

116 IFtCAFRAt I ) .NE.O) CF=CF+1 
IFtCAFRAt I) .GT .0) GO TO 16 
ENTDtE) =1 
E = E+ 1 

16 CONTINUE 
N=CF -0UE4 

P4= I F I X( N*0. 02+ 1 ) 

1=1 

DO 17 J = 1 » P4 

1018 IFtCAFRAtl ) .GT.O)GO TO 1017 
1 = 1+1 

GO TO 1018 

1017 ENTD ( E ) = I 
CAFRAt I ) =0 
E=E+1 

1=1 + 1 

QUE4=QU E4+1 

17 CONTINUE 

LIEUTENANT COMMANDER 
CAPITANES DE CORBETA 

C0=0 
F = 1 

DO 18 1=1,150 
A=CORB E ( I) 

IF{A.GE.800) GO TO 1021 

1020 IF t A.LT. 100) GO TO 1019 
A= A-10 0 

GO TO 1020 

1019 IFtA.LT.35) GO TO 118 

1021 0UE5 =QU E5 + 1 



hh 



non 



CORBE ( I ) =0 

118 IF(CORBEd).NE.O) C0=C0+1 
I F{ CORBE ( I ) .GT .0 ) GOTO 18 
ENTE(F) = 1 
F= F+ 1 

18 CONTINUE 
N=CO -OUE5 

P5 = I FIX I N*0 .02+1 ) 

1=1 

DO 19 J=1,P5 

1023 IF(CORBE( I) .GT.OIGO TO 1022 
1 = 1 + 1 

GO TO 1023 
1022 ENTE ( F ) = 1 
CORBE ( I ) =0 
F =F+ 1 
1=1 + 1 

QUE5 =QU E5+ 1 

19 CONTINUE 

L I EUTENANT 
TEN I ENTE S PRI KEROS 
TP = 0 
G=1 

DO 20 1=1,200 
A=TEPR 1(1) 

I F( A.GE .1000 ) GO TO 1029 
1031 IF(A.LT.IOO) GO TO 1030 
A=A— 100 
GO TO 1031 

1030 I F ( A ♦ LT • 35 ) GO TO 120 
1029 OU E6 = 0U E 6+ 1 
TEPRI ( I ) =0 

120 IF(TEPRKI).NE.O) TP=TP+1 
I F ( T EP R I (I ) .GT .0) GO TO 20 
ENTF (G) =1 
G=G+ 1 

20 CONTINUE 
AA=0 

BB =0 
CC=0 
DD=0 
EE =0 

DO 21 1 = 1,200 

IF(TEPRICI) .GE.900) GO TO 121 
IFtTEPRI (I) .GE.800) GO TO 221 
IF(TEPRI( I J.GE.700) GO TO 321 
IFtTEPRI (I) .GE. 600) GO TO 421 
IFtTEPRI ( I ) .GE . 500) GO TO 521 
AA=AA+1 
GO TO 21 
BB=B8+ 1 
GO TO 21 
CC=CC+1 
GO TO 21 
DD=DD+1 
GO TO 21 
EE=EE+1 
CONT INUE 

P5=IFIX(AA*0.8+1) 

P6=IFIX( BB*0 .8+1 ) 
P7=IFIX(CC*0.1+1) 
P8=IFIX(DD*0.20+1) 

P9 = I F IX ( EE-0 .30 + 1 ) 

J = 0 

DO 22 1=1,200 

IFtTEPRI ( I ) . EQ.O ) GO TO 22 
IFtTEPRI l I ). LT. 900) GO TO 22 
IFtTEPRItI ) .GT.935) GO TO 22 
J = J+1 

I Ft J .GT . P 5 ) GO TO 28 
OU E6 = QU E6 + 1 



121 

221 

321 

421 

521 

21 



oono 



TEPRI { I ) =0 
ENTF ( G ) = I 
G— G+l 

22 CONTINUE 
J = 0 

28 DO 23 1=1,200 

I F ( TEPRI (I) .E0.0) GO TO 23 
IFITEPRI! I ) .LT. 800) GO TO 23 
IFITEPRI { I ) .GT .835 ) GO TO 23 
J = J+1 

IFU.GT.P6) G3 TO 29 
QUE6 = QU E6+ 1 
TEPRI ( I ) =0 
E NT F ( G ) = I 
G=G+ 1 

23 CONTINUE 
J = 0 

29 DO 24 1=1,200 

IFITEPRI (I ) .EO.O) GO TO 24 
IFITEPRI { I ) .LT .700) GO TO 24 
IFITEPRI II ) .GT. 735 ) GO TO 24 
J = J + 1 

IFIJ.GT.P7 ) GO TO 33 

QUE6=0UE6+1 

TEPRI I I ) =0 

ENTF I G ) = I 

G — G+ 1 

24 CONTINUE 
J =0 

33 DO 25 I =1,200 

I FIT EPR II I ) . EQ .0 ) GO TO 25 
IF (TEPRI II ) . LT .600 ) GO TO 25 
IFITEPRI (I ) .GT. 635) GO TO 25 
J = J + 1 

IFIJ.GT.P8) GO TO 34 
QUE6=QUE 6+ 1 
TEPRI I I )=0 
ENTF(G) =1 
G= G+ 1 

25 CONTINUE 
J = 0 

34 DO 26 1=1,200 

IFITEPRI I I ) . EQ . 0 ) GO TO 26 
IFITEPRI (I ).LT .500) GO TO 26 
IFITEPRI I I ) .GT .535) GO TO 26 
J = J+1 

IFIJ.GT.P9) GO TO 27 

OU E6 = 0U E 6+ 1 

TEPRI I I ) =0 

ENTF I G ) = I 

G= G+l 

26 CONTINUE 

LIEUTENANT JUNIOR GRADE 
TENIENTES SEGUNDOS 

27 T S=0 
H = 1 

DO 30 1=1,200 
A=T ES E I I ) 

IFIA.GE.600) GO TO 2000 
2002 IFIA.LT .100) GO TO 2001 
A=A— 10 0 
GO TO 2002 

2001 IFIA.LT. 35) GO TO 130 
2000 QUE7=0UE7+1 
TESE ( I ) =0 

130 IFI TESEII) .NE.O) TS=TS + 1 
IF (TESEI I ) . GT . 0 ) GO TO 30 
ENTGI H ) = I 
H= H+l 

30 CONTINUE 
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N= TS -0UF7 
P10=IFIX(N*0.02+1) 

1=1 

DO 31 J = 1,P10 

2003 I F ( T ES E ( I) .GT.O) GO TO 2004 
1=1 + 1 

GO TO 2003 

2004 ENTG ( H ) = I 
TESE (I) =0 
H= H + 1 

1 = 1 + 1 

OUE 7 =0UE 7+ 1 

31 CONTINUE 

ENSIGNS 

ALFERECES 

AF =0 
0=1 

DO 32 1=1,200 
A = AF RA ( I ) 

IF(A.GE.500) GO TO 2005 

2006 IF(A.LT.IOO) GO TO 2007 
A=A-100 

GO TO 2006 

2007 I F ( A . LT .35 ) GO TO 132 

2005 OUE 8=0UE 8+ 1 
AFRAt I ) =0 

132 IF(AFRAd).NE.O) AF = A F+l 
I F ( AFRA ( I ) .GT. 0) GO TO 32 

32 CONTINUE 

WRI TE ( 6 , 201 ) 

201 FORMAT! • O', • SALGO DE OUT ') 
RETURN 
END 



SUBROUTINE AVANCE 



THIS SUBROUTINE COMPUTES THE PEOPLE ABLE TO 
PROMOTION AND PROMOTES THE NECESSARY NUMBER 
AND ADVENCES ONE YEAR IN TIME ALL THE FORCE 



ESTA SUBRUTINA COMPUTA TODA LA GENTE ELEGIBLE PARA 
ASCENSO Y ASCIENDE A LOS NECESARIOS Y AVANZA UN ANO 
EN TIEMPO A TODA LA FUERZA. 

IMPLICIT INTEGER(A-Y) 

COMMON/NADA/ AFRA(200), TESE(200), TEPRK200), 

1 CORBE (150) , CAFRA(IOO) ,CANAV(80 ) , CALM(50), VALM(IO), 
2ENTA ( 10) , ENTB ( 50) ,ENTC( 80) ,FNTD( 100) , ENTE ( 150) , 

3 ENT F( 20 0 ), ENTG (2 00 ) , ENT H{ 200 ) , QUE 1 , QUE 2 , QUE 3 , 
40UE4,QUE5,0UE6 ,QUE7 ,QUE8 ,VEC1 (200) ,VEC2 (200) , 
5VEC3(200 ),R0L1 ( 600) , I X , K 1 , K3 , K2 , KK , L L , MM , I NGO , 

6 CADET (5 ) ,REKIS (8 ) , CY , Z1 ( 100 ) , A 1 ( 50 ) , A2 ( 5 0 ) , A3 ( 50 ) , 
7A4( 50) ,A5( 50) , A6(50) , A7 (50) , CYCLE 



ADVANCE ONE YEAR THE VICE-ADMIRALS 
SE AVANZA 1 ANO A LOS V I C EALM I RANT E S 



h7 



nnnnnnn non nnnnnn nnnnnn nnnnnnnnnnnn 



WRIT E ( 6 , 202 ) 

202 FORMAT ('O’,' ENTRO A AVANCE «) 

VA = 0 

DO 1 1=1,10 

I F ( VALM { I ) . GT « 0 ) VALMl I ) = V AL M { I )+101 
IF(VALM(I).GT.O) VA=VA+1 
1 CONTINUE 



FORM THE PROMOTION LIST OF THE REAR ADMIRALS 
FORMAR CUADRO DE ASCENSO DE CON TRALMI RANT E S 



IN VEC1 ARE ALL THE ONES WHO HAVE 4 YEARS IN THE GRADE 
EN VEC1 ESTAN LOS OU E TIENEN 4 ANOS EN EL GRADO 



CA=0 
K1 =1 
K 2 = 1 
K3= 1 

DO 10 1=1,50 

I F (CALM (I) .LT. 400) GO TO 11 
I F { CALM ( I ) .GT. 435 ) GO TO 11 
VEC1 ( K 1 )=I 
K 1 =K1+ 1 
GO TO 110 



IN VEC2 ARE ALL THE ONES WHG HAVE 5 YEARS IN THE GRADE 
EN VEC2 ESTAN TODOS LOS QUE TIENEN 5 ANOS EN EL GRADO 



11 I F( CALM ( I ) .LT .500 ) GO TO 12 
IF(CALM( I ) .GT. 535) GO TO 12 
VEC2IK2 ) = I 
K2=K2 + 1 
GO TO 110 



IN VEC3 ARE ALL THE CNES WHO HAVE 6 YEARS IN THE GRADE 
EN VEC3 ESTAN TODOS LOS QUE TIENEN 6 ANOS EN EL GRADO 



12 IF(CALM{ I ) . LT. 6001G0 TO 110 
IFICALMI I ) .GT. 635) GO TO 110 
VEC3 (K3) =1 
K3=K3+ 1 

ADVANCE ONE YEAR THE REAR-ADMIRALS 

110 IFtCALM(I).GT.O) C ALM { I ) =CAL M ( I ) + 1 01 
I F (CALM ( I ) . GT. 0 ) CA=CA+i 
10 CONTINUE 

K= K1 +K2 +K3— 3 

FORM THE PROMOTION LIST AND PROMOTE * 

THE NECESSARY NUMBER OF PEOPLE 

SE FORMA EL CUADRO DE ASCENSO Y SE ASCI ENDE 

AL NUMERO NECESARIO DE GENTE 

RE =RE K I S ( 1)-VA 
QU E 1 = RE 
CALL PROL(K) 

I F { K.LT.QUE1) GO TO 14 
CA=CA-QU E 1 
A1 (CY-CYCLE+1 ) =QUE1 
DO 13 J = 1 , QUE 1 
T EMP1 =CALM ( ROL 1 ( J ) )-600 
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IF (TEMPI. LT.O) GO TO 18 
IF(TEMPl.GT.lOO) GO TO 17 
V ALM ( ENT A ( J ) )=CALM ( ROL 1 ( J ) )-500 
C A LM ( R 0 L 1 1 J ) )=3 
GO TO 13 

18 VALM ( ENTA ( J ) ) =CALM { ROL 1 { J ) J-400 
CALM( R0L1( J) ) =0 

GO TO 13 

17 VALM ( ENT A ( J) ) =CALM( ROL 1 ( J ) )-600 

CA LM ( ROL 1 ( J) ) =0 

13 CONTINUE 
QUE2=QUE2+QUE1 
GO TO 16 

14 DO 15 J = 1 . K 

TE MP1 =C A LM { ROL 1 { J ) )-60 0 
IF(TEMPl.LT.O) GO TO 19 
IF(TEMPl.GT.lOO) GO TO 117 
VALM ( E NTA( J) ) =CALM( R0L1 (J) 1-500 
CALM ( ROL 1 ( J ) )=0 
GO TO 15 

19 VALM ( ENT A ( J ) ) =C A LM ( ROL 1 ( J ) J-400 
CALM ( ROL 1 ( J ) )=0 

GO TO 15 

117 VALM ( ENTA ( J ) ) =C A LM { ROL 1 ( J )) -6 00 
CALM ( ROL1 ( J ) )= 0 

15 CONTINUE 
CA=CA— K 

A1 (CY-CYCLE+1 )=K 
QUE2=0UE2+K 

16 0=1 

DO 116 1=1.50 

IF(CALM(I) .GT. 0) GO TO 116 
ENTB ( 0 ) = I 
0 = 0+1 

116 CONTINUE 

FORM THE PROMOTION LIST OF THE CAPTAINS 
FORMAR CUADRO DE ASCENSO DE CAPITANES DE NAVIO 



KK = 1 
LL=1 
MM = 1 

IN VEC1 ARE ALL THE ONES WHO HAVE 4 YEARS IN THE GRADE 
EN VEC 1 ESTAN TODOS LOS QUE TIENEN 4 ANOS EN EL GRADO 



CN = 0 
K1 =1 
K2 = l 
K3= 1 

DO 20 1=1.80 

IFICANAV(I) .LT.400) GO TO 21 
I F(CANAVU) .GT .435) GO TO 21 
VEC1 ( K1 )=I 
K1=K1+1 
GO TO 220 



IN VEC2 ARE ALL THE ONES WHO HAVE 5 YEARS IN THE GRADE 
EN VEC2 ESTAN TODOS LOS QUE TIENEN 5 ANOS EN EL GRADO 



21 IF(CANAV( I ) .LT *5 00) GO TO 22 
IF(CANAV( I) .GT .535) GO TO 22 
VEC2 (K2 ) =1 
K2=K 2+ 1 
GO TO 220 
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IN VEC3 ARE ALL THE ONES WHO HAVE 6 YEARS IN THE GRADE 
EN VEC3 ESTAN TODOS LOS OUE TIENEN 6 ANOS EN EL GRADO 



22 I F(CANAVII) .LT.600) GO TO 220 
I F(CANAV( I ) .GT.635) GO TO 220 
V E C3 ( K 3 ) = I 

K3=K3+ 1 

ADVANCE ONE YEAR THE CAPTAINS 

220 IF(CANAV( I ) .GT.O) C AN A V (I) =CA NA V ( I ) + 1 01 
I F ( C AN A V ( I ) . GT . 0 ) CN=CN+1 
20 CONTINUE 

K=K1+K2+K3— 3 

IF(REKIS(2).GT .QUE2) QU E2=REK IS ( 2 ) 

FORM THE PROMOTION LIST AND PROMOTE 
THE NECESSARY NUMBER OF PEOPLE 

SE FORMA EL CUADRO DE ASCENSO Y SE ASCI ENDE 
AL NUMERO NECESARIO DE GENTE 

RE=REK I S ( 2 J-CA 

0UE2=RE 

CALL SROL(K) 

IFCK.LT .QUE2) GO TO 24 

CN=CN-QUE2 

A2(CY-CYCLE+1) =QUE2 

DO 23 J = 1,QUE2 

TEMP1=CANAV ( R0L1 (J) 1-600 

IFITEMPl.LT. 0) GO TO 28 

I F (T EMP1 .GT .100) GO TO 27 

CALM ( ENT B { J ) ) = CANAV(R0L1 ( J ) )-50 0 

CANAV ( ROL 1 ( J ) ) =0 

GO TO 23 

28 CALM( ENTB( J) ) =CANAV(R0L1 (J) J-400 
CANAVt R0L1( J ) ) =0 

GO TO 23 

27 CALM ( E NTB ( J) ) =CANAV(R0L1 (J) 1-600 

CANAV ( ROL 1 ( J ) ) = 0 

23 CONTINUE 
QUE3=QUE3+QUE2 
GO TO 26 

24 DO 25 J=1,K 
TEMP1=CANAV( ROL 1 (J ) J-600 
IFITEMPl.LT. 0) GO TO 29 

IF (TEMPI .GT. 100) GO TO 227 
CALM ( EN TB ( J ) ) = C ANA V ( RO L 1 ( J ) ) -500 
CANAV ( R0L1 ( J ) ) =0 
GO TO 25 

29 CALM ( ENTB( J ) ) = C A NA V ( ROL 1 ( J ) )-400 
CANAV ( R0L1 ( J) ) =0 

GO TO 25 

227 CALM( ENTB( J ) )= CANAV ( ROL 1 { J ) )-600 
CANAV ( R0L1 ( J) ) =0 

25 CONTINUE 
CN=CN-K 

A 2 (CY— CYCLE+1 ) =K 
QUE3=0UE 3+K 

26 0=1 

DO 216 1=1,80 

IF(CANAV(I) .GT.OJ GO TO 216 
ENTC ( 0 ) = I 
0=0+1 

216 CONTINUE 

FORM THE PROMOTION LIST OF THE COMMANDERS 
FORMAR CUADRO DE ASCENSO DE CAPITANES DE FRAGATA 
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KK= 1 
LL = 1 
MM = 1 

IN VEC1 ARE ALL THE ONES WHO HAVE 4 YEARS IN 

EN VEC 1 ESTAN TODOS LOS QUE TIENEN 4 ANOS EN 
CF =0 
K 1 =1 
K2 = 1 
K3 = l 

DO 30 1=1,100 

I F( CAFRA( I ) .LT .400) GO TO 31 
I F(CAFRA( I ) .GT .435) GO TO 31 
VECK Kl) =1 
K1=K1+1 
GO TO 330 

IN VEC2 ARE ALL THE ONES WHO HAVE 5 YEARS IN 
EN VEC2 ESTAN TODOS LOS QUE TIENEN 5 ANOS EN 

31 I F(CAFRA( I ) . LT.500 ) GO TO 32 
IF(CAFRA( I ) .GT. 535) GO TO 32 
VEC2IK2 )=I 

K2=K2+ 1 
GO TO 330 

IN VEC3 ARE ALL THE ONES WHO HAVE 6 YEARS IN 
EN V EC3 ESTAN TODOS LOS QUE TIENEN 6 ANOS EN 

32 I F(CAFRA( I ) .LT .600) GO TO 330 
IF(CAFRA( I ) .GT .635 ) GO TO 330 
VEC3 ( K3 ) =1 

K3=K3+ 1 

ADVANCE ONE YEAR THE COMMANDERS 

330 IF(CAFRA(I) .GT.O) C A FR A ( I ) = CAFR A ( I ) +10 1 
I F( CAFRA ( I ) .GT . 0 ) CF=CF+1 
30 CONTINUE 

K = KH-K2+K3-3 

IF(REKIS(3).GT .QUE 3) QUE3=REKI S ( 3) 

FORM THE PROMOTION LIST AND PROMOTE 
THE NECESSARY NUMBER OF PEOPLE 

SE FORMA EL CUADRO DE ASCENSO Y SE ASCIENDE 
AL NUMERO NECE SARI 0 DE GENTE 



RE=RE KI S( 3)-CN 
OU E 3 = R E 
CALL TROL(K) 

I F( K. LT. QUE3) GO TO 34 
CF=CF— 0UE3 
A3 (CY-CYCLE+1 ) =QUE3 
DO 33 J= 1, QUE3 
TEMP1 = CAFRA( R0L1 (J ) )-600 
IFCTEMPl.LT. 0) GO TO 38 
IF(TEMPl.GT.lOO) GO TO 37 
CANAV ( ENT C ( J ) ) = CAFR A ( ROL 1 ( J ) )-500 
CAFRAC R0L1( J) ) =0 
GO TO 33 

38 CANAV [ ENT C ( J ) ) =C AFRA( ROL 1 ( J ) )-400 

CAFRA(R0L1( J) ) =0 
GO TO 33 

37 CANAV (ENTC(J) )=CAFRA(R0L1 (J) )-600 
CAFRAC R0L1( J) ) =0 
33 CONTINUE 



THE GRADE 
EL GRADO 



THE GRADE 
EL G 



THE GRADE 
EL GRADO 
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QUE4 =QUE4+QUE3 
GO TO 36 

34 DO 35 J = 1 » K 
TEMP1=CAFRA(R0L1 ( J) )-600 
IF(TEMPl.LT.O) GO TO 39 
IFfTEMPl .GT .100 ) GO TO 337 

C ANA V ( E NTC ( J ) ) =CAFRA( R0L1 ( J) ) -500 
CAFRA ( ROL 1 ( J ) ) =0 
GO TO 35 

39 CANA V ( E NTC ( J) ) =CAFRA( ROL1 ( J) ) -400 

CAFRA{ R0L1 ( J ) ) =0 
GO TO 35 

33 7 CANAV ( EN TC ( J ) ) =C AF R A ( RO LI { J ) ) -6 00 
CAFRA ( R0L1 ( J ) ) =0 

35 CONTINUE 
CF=CF-K 

A3 (CY-CYCLE+1 )=K 
0UE4=QUE4+K 

36 0=1 

DO 316 I =1,100 
IF(CAFRA(I) .GT.O) GO TO 316 
ENTDIO )=I 
0 = 0+1 

316 CONTINUE 



FORM THE PROMOTION LIST OF THE LIEUTENANT COMMANDERS 
FORMAR EL CUADRO DE ASCENSO DE CAPITANES DE CORBETA 



KK = 1 
LL=1 
MM=1 

IN VEC1 ARE ALL THE ONES WHO HAVE 4 YEARS IN THE GRADE 
EN VEC 1 ESTAN LOS QUE TIENEN 4 ANOS EN EL GRADO 



C0 = 0 
K 1= 1 
K2=l 
K3 =1 

DO 40 1=1, 150 

IF(CORBE( I) .LT.400 ) GO TO 41 
IF(CORBE(I J.GT.435) GO TO 41 
VEC 1 ( K 1 ) = I 
K1 =K1+ 1 
GO TO 440 

IN VEC2 ARE ALL THE ONES WHO HAVE 5 YEARS IN THE GRADE 

EN V EC2 ESTAN LOS QUE TIENEN 5 ANOS EN EL GRADO 

41 IF(CORBE( I ) .LT .500) GO TO 42 
IF(CORBE(I ) .GT .535 ) GO TO 42 
VEC2 ( K2 ) =1 
K2 = K 2+ 1 
GO TO 440 

IN VEC3 ARE ALL THE ONES WHO HAVE 6 YEARS IN THE GRADE 

EN VEC 3 ESTAN LOS QUE TIENEN 6 ANOS EN EL GRADO 

42 IF(CORBE(I ) .LT.600) GO TO 440 
IF(CORBE( I ) .GT.635) GO TO 440 
V EC3 { K3 } = 1 

K3 =K3+ 1 
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ADVANCE ONE YEAR THE LIEUTENANT COMMANDER 



440 I F (CORBE ( I ) . GT . 0 ) CORBE ( I ) =C0RBE { I ) +101 
I F ( CORBE ( I ) .GT .0 ) C0=C0 + 1 
40 CONTINUE 

K=K 1+K 2+K3-3 

IF(REKIS(4) .GT .QUE4) QU E4=REK IS ( 4 J 

FORM THE PROMOTION LIST AND PROMOTE 
THE NECESSARY NUMBER OF PEOPLE 

SE FORMA EL CUADRO DE ASCENSO Y SE ASCI ENDE 
AL NUMERO NECESARIO DE GENTE 



RE=REK IS (4)-CF 

0UE4=RE 

CALL CROL(K) 

IF(K.LT . QUE4 ) GO TO 44 

C0=C0-QUE4 

A4( CY-CYCLE + 1) =QUE4 

DO 43 J = It QU E4 

TEMP1=C0RBE(R0L1 (J ) 1-600 

I F ( TEMP 1 . L T. 0) GO TO 48 

IFLTEMP1 .GT.100) GO TO 47 

CAF RA { ENTD ( J) ) =CORBE(ROL1 ( J ) )-500 

CORBEL R0L1 ( J ) ) =0 

GO TO 43 

48 CAFRAL ENTDL J) ) =C ORB E LRO LI LJ) ) -400 
CORBE ( ROL 1 ( J ) ) =0 

GO TO 43 

47 CAFRAL ENTD( J) ) =C ORB E L R0L1 L J ) )-6 00 
CORBEL ROL 1 ( J ) ) =0 

43 CONTINUE 
QUE5=QUE 5+QUE4 
GO TO 46 

44 DO 45 J = 1 1 K 
TEMP1=CORBE(ROL1(J) J-600 
IFLTEMPl.LT .0) GO TO 49 

IF (TEMPI .GT.100) GO TO 447 
CAFRAL ENTDL J ) ) =CORBE LR0L1 L J) )-500 
CORBEL R0L1 ( J ) ) =0 
GO TO 45 

49 CAFRAL ENTDL J) ) =C0R3 E LROL 1 L J ) ) -400 
CORBEL R0L1 ( J) ) =0 

GO TO 45 

447 CAFRAL ENTDL J ))=C0RBE(R0L1LJ} )-600 
CORBE (R0L1 ( J) ) =0 

45 CONTINUE 
CO=CO-K 

A4 (C Y-CYCL E+l ) =K 
QUE 5=QUE 5+K 

46 0=1 

DO 416 I =1,150 
I F ( CORBE ( I ) . GT . 0 ) GO TO 416 
ENTE ( 0 ) = I 
0=0+1 

416 CONTINUE 

FORM THE PROMOTION LIST OF THE LIEUTENANT 
FORMAR CUADRO DE ASCENSO DE TENIENTES PRIMEROS 



KK = 1 
LL= 1 
MM=1 



IN VEC1 ARE ALL THE CNES WHO HAVE 4 YEARS 
EN VEC1 ESTAN LOS QUE TIENEN 4 ANOS EN EL 



IN THE GRADE 
GRADO 
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c 

TP=0 
K1 =1 
K 2= 1 
K3 = 1 

DO 50 I =1,200 

IF(TEPRI { I ) .LT.400) GO TO 51 
IF(TEPRI (I) .GT .435) GO TO 51 
VE Cl I K 1 ) =1 
K 1 = K 1+ 1 
GO TO 550 

IN VEC2 ARE ALL THE ONES WHO HAVE 5 YEARS IN THE GRADE 

EN VEC2 ESTAN LOS QUE TIENEN 5 ANOS EN EL GRADO 

51 IFITEPRI (I).LT.500) GO TO 52 
I FtTEPRI ( I ) .GT.535) GO TO 52 
VEC2(K2 ) = I 

K2=K2+ 1 
GO TO 550 

IN VEC3 ARE ALL THE ONES WHO HAVE 6 YEARS IN THE GRADE 

EN VEC3 ESTAN LOS QUE TIENEN 6 ANOS EN EL GRADO 

52 IFITEPRI (I) .LT .600) GO TO 550 
IFITEPRI (IJ.GT.635) GO TO 550 
VEC3 ( K3 ) =1 

K3=K3+ 1 

ADVANCE ONE YEAR THE LIEUTENANT 

550 IFITEPRI (I ).GT.O) T EPR I ( I ) =T EPR I (I) +1 01 
IFtTEPRI (I).GT.O) T P=T P+1 
50 CONTINUE 

K=Kl+K2+K3-3 

IFIREKI SI 5) .GT.0UE5) QUE5=REKIS{ 5) 

F CRM THE PROMOTION LIST AND PROMOTE 
THE NECESSARY NUMBER OF PEOPLE 

SE FORMA EL CUADRO DE ASCENSO Y SE ASCIENDE 
AL NUMERO NECESARIO DE GENTE 



RE=REKI S( 5)-C0 
0UE5=RE 
CALL QROL(K) 

IFIK.LT.0UE5) GO TO 54 
T P=T P-QU E5 
A 5 (CY-CY CLE+1 ) =QUE5 
DO 53 J= 1, 0UE5 
TEMP1=TEPR I ( R0L1 (J ) J-600 
IF (TEMPI. LT.O) GO TO 58 
IF(TEMPl.GT.lOO) GO TO 57 
CORB E ( ENT E ( J ) ) =T EPR I ( ROL 1 1 J ) )-500 
TEPR I ( R0L1 ( J) ) =0 
GO TO 53 

58 CORBE ( ENTE(J))=TEPRI( ROL 1 ( J ) )-400 
TEPR I ( R0L1 ( J) ) =0 
GO TO 53 

57 CORBE (ENTE(J)) =TEPR I ( R0L1 ( J ) )-60D 
TEPR I ( R0L1( J ) ) =0 

53 CONTINUE 

OUE 6 = QU E6+ QU E5 
GO TO 56 

54 DO 55 J = 1 , K 

TEMP1 = TEPRI (R0L1 ( J ) J-6 00 
IFITEMP 1 .LT.O) GO TO 59 
IFJTEMP1 .GT .100 ) GOTO 557 
CORBE! ENTEl J)) =TEPRI ( R0L1 ( J) ) -500 
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TEPRII ROLll J)) =0 
GO TO 55 

59 CORB E ( ENTE ( J) ) =TEPRI ( R0L1 ( J) ) -400 
TEPRII R0L1(J ) ) =0 
GO TO 55 

557 CORBE ( E NTE ( J) ) =TEPRI ( R0L1 ( J) ) -600 
TEPRK R0L1(J ) )=0 

55 CONTINUE 
TP=TP-K 

A5 ( CY-CY CL E+l ) =K 
QUE6=QUE6+K 

56 0=1 

DO 516 1=1,200 
IFITEPRI (I).GT.D) GO TO 516 
ENTFIO ) = 1 
0 = 0+1 

516 CONTINUE 



FORM THE PROMOTION LIST OF THE LIEUTENANT J.G. 

FORMAR EL CUADRO DE ASCENSO DE TEN I ENTES SEGUNDOS 

KK = 1 
LL = 1 
MM=1 

IN VEC1 ARE ALL THE ONES WHO HAVE 3 YEARS IN THE GRADE 

EN VEC1 ESTAN LOS QUE TIENEN 3 ANOS EN EL GRADO 

TS = 0 
K 1= 1 
K2= 1 
K3 =1 

DO 60 I =1,200 

IF(TESE( I) .LT.300) GO TO 61 
IF { TES E ( I) .GT.335) GO TO 61 
VEC1( Kl) =1 
K1=K1+1 
GO TO 660 

IN V EC2 ARE ALL THE ONES WHO HAVE 4 YEARS IN THE GRADE 

EN VEC2 ESTAN LOS QUE TIENEN 4 ANOS EN EL GRADO 

61 IFITESE(I) . LT. 400) GO TO 62 
I F l T ES E I I) .GT.435) GO TO 62 
VEC2IK2) =1 

K2=K 2+ 1 
GO TO 660 

IN VEC3 ARE ALL THE ONES WHO HAVE 5 YEARS IN THE GRADE 

EN VEC3 ESTAN LOS QUE TIENEN 5 ANOS EN EL GRADO 

62 IFITESEI I) .LT.500) GO TO 660 
IF(TESE( I) .GT.535) GO TO 660 
VEC3IK3 )=I 

K3 =K3 + 1 

ADVANCE ONE YEAR THE LIEUTENANT JUNIOR GRADES 

660 IFITESEI I ) .GT. 0) TE SE 1 1 ) =TESE I I ) +101 
IFITESE (I).GT.O) TS=TS+1 
60 CONTINUE 

K=Kl+K2+K3-3 

IFIREK IS (6 ) .GT .QUE6 ) 0UE6 = REK IS I 6 ) 

FORM THE PROMOTION LIST AND PROMOTE 
THE NECESSARY NUMBER OF PEOPLE 
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SE FORMA EL CUADRO DE ASCENSO Y SE ASCI ENDE 
AL NUMERO NECESARIO DE GENTE 

RE =RE K I S { 6 ) -TP 

OU E6 = R E 

CALL SEROL(K) 

IFtK.LT.0UE6) GO TO 64 

TS = T S-OU E6 

A6tCY— CYCLE+1) = QUE6 

DO 63 J= 1, 0UE6 

TEMP1=TESE( ROL 1 f J > >—500 

IF(TEMPl.LT.O) GO TO 68 

IFITEMP1.GT.100) GO TO 67 

TEPRIt ENTFt J) ) =TESE(R0L1(J ) )-400 

TESE ( R0L1 ( J) ) =0 

GO TO 63 

68 TEPRIt ENTFt J) ) =T ES E { ROL 1 ( J ) )-300 
TESE ( ROLlt J) ) =0 

GO TO 63 

67 TEPRI {ENTFt J) ) =TESE(R0L1 (J ) )-500 
TESE t R0L1 1 J ) ) =0 

63 CONTINUE 

QUE 7 = QUE7+ QU E6 
GO TO 66 

64 DO 65 J = 1 , K 
TEMP1=TESE (R0L1 ( J > > -5 0 0 
IFtTEMP l.LT.O) GO TO 69 
IFtTEMPl .GT .100 ) GO TO 667 
TEPRI ( ENTFt J) ) =TESE ( R0L1 t J ) )-400 
TESE ( ROL 1 1 J ) ) = 0 

GO TO 65 

69 TEPRI t ENTFt J) ) =TE SE t ROL 1 ( J ) )-300 
TESE { ROL 1 ( J ) ) = 0 

GO TO 65 

667 TEPRIt ENTF(J)) =TE SE ( RO LI ( J ) )-500 
TESE ( ROL 1 t J ) ) =0 

65 CONTINUE 
TS = T S-K 

A6 t CY-CYCL E+l ) =K 
0UE7 =QUE7+K 

66 0=1 

DO 616 1=1,200 
IF(TESEtl).GT.O) GO TO 616 
ENTGtO )=I 
0 = 0+1 

616 CONTINUE 



FORM THE PROMOTION LIST OF THE ENSIGNS 

FORMAR EL CUADRO DE ASCENSO DE ALFERECES DE FRAGATA 



KK = 1 
LL= 1 
MM= 1 

IN VEC 1 ARE ALL THE CNES WHO HAVE 3 YEARS IN THE GRADE 

EN VEC1 ESTAN LOS QUE TIENEN 3 ANOS EN EL GRADO 

AF = 0 
K1 = 1 
K 2= 1 
K3 = 1 

DO 70 I =1,200 

IFtAFRAt I ) .LT. 300) GO TO 71 
I Ft AFRAt I ) .GT. 335) GO TO 71 
VE Cl { K 1 ) =1 
K 1=K 1+ 1 
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GO TO 770 

IN VEC 2 ARE ALL THE ONES WHO HAVE 4 YEARS IN THE GRADE 

EN VEC2 ESTAN LOS QUE TIENEN 4 ANOS EN EL GRADO 

71 IF(AFRA( I) .LT.400) GO TO 72 
IF(AFRA( 1) . GT.435) GO TO 72 
VEC2 ( K2 ) =1 

K2 =K2 + I 
GO TO 770 

IN VEC3 ARE ALL THE ONES WHO HAVE 5 YEARS IN THE GRADE 

EN VEC3 ESTAN LOS QUE TIENEN 5 ANOS EN EL GRADO 

72 IF(AFRA( I) . LT. 500) GO TO 770 
IF(AFRA(I) .GT. 535) GO TO 770 
VEC3 ( K3 ) -I 

K3=K3+ 1 

ADVANCE ONE YEAR THE ENSIGNS 

770 IFtAFRAt I J.GT.O) A FRA (I) =A FRA ( I ) + I 0 1 
I F ( AF RA (I).GT.O) AF=AF+1 
70 CONTINUE 

K= K1 +K2 +K3 -3 

IF (REK1S (7) . GT .QUE7 ) QUE7 = REKIS (7) 

FORM THE PROMOTION LIST AND PROMOTE 
THE NECESSARY NUMBER OF PEOPLE 

SE FORMA EL CUADRO DE ASCENSO Y SE ASCIENDE 
AL NUMERO NECESARIO DE GENTE 



RE =REKI S (7 ) -TS 
QUE7=RE 
CALL SPROL(K) 

IFtK.LT. QUE7 ) GO TO 74 
AF = A F-QUE7 
A7 ( CY— CYCLE + 1 )=QUE7 
DO 73 J = 1 . QUE7 
TEMP 1=AFRA ( ROL 1 ( J ) J-500 
IF(TEMPl.LT.O) GO TO 78 
IF(TEMPl.GT.lOO) GC TO 77 
T ES E ( ENTGl J ) )= AFRA ( ROL 1 ( J ) )-400 
AFRA { R0L1 (J) ) =0 
GO TO 73 

78 TESE(ENTG(J) )=AFRA(R0L1(JJ J-300 
AFRA (ROLL ( J ) ) =0 
GO TO 73 

77 T ES E ( ENT G( J ) ) = AFRA ( ROL 1 ( J ) )-500 

AFRA ( R0L1 ( J ) ) =0 

73 CONTINUE 

QU E8 = QU E8+QUE7 
GO TO 76 

74 DO 75 J= I , K 

TEMPI =AFRA( ROL 1 (J) J-500 
IF(TEMP1.LT. 0) GO TO 80 
IFtTEMPl.GT .100) GO TO 777 
TESE ( ENTG ( J ) ) = AFRA ( R0L1 (J) )-400 
AFRA (ROLl(J) ) =0 
GO TO 75 

80 TESE(ENTG(J) )=AFRA(R0L1( J) J-300 
AFRA ( ROL 1 ( J ) ) = 0 
GO TO 75 

777 TESEI ENTG( J) ) =AFRA ( R0L1 ( J) )-500 
AFRA ( ROL 1 ( J ) ) =0 

75 CONTINUE 
AF =A F- K 

A7 (CY-CYCLE+1 ) =K 
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OU E8 =QU E8 + K 

IFtREKIS(8) .GT.0UE8) QUE8=REKIS t 8 ) 
0=1 

DO 716 I =1,200 
I F ( A FRA £ I) .GT.O) GO TO 716 
ENTH ( 0 ) = I 
0 = 0+1 
716 CONTINUE 

KKK=CADET (5 ) 

DO 79 I =1 , KKK 

IF(ENTH( I ) .GT. 200) GO TO 79 
AFRA { ENT H{ I ) ) = 10 1 
79 CONTINUE 

CADET ( 5 ) =CADET (A) 

CADET (A ) =CADET (3) 

CADETt 3) =CADET ( 2) 

CADET (2)=CADET (1) 

CADET(1 )=INGO 
WR I TE ( 6,203) 

203 FORMAT ('O', • SLGO DE AVANCE 1 ) 
RETURN 
END 



SUBROUT INE PROL (K) 



THIS SUBROUTINE DETERMINES THE DISTRIBUTION 
IN THE PROMOTION LIST OF REAR ADMIRALS 



DETERMINA LA DISTRIBUCION EN EL CUADRO DE 
ASCENSO DE CALM. 



IMPLICIT INTEGER(A-Y) 

COMMON/NADA/ AFRA( 200), TESE( 200), TEPRK 200), 

1C0RBE (15 0) , CA FR A ( 1 00 ) , CAN AV ( 80 ) , CALM(50>, VALM(IO), 
2 ENT At 10) ,ENTB( 50) , ENTCt 80) ,ENTD( 100) , ENTE t 150) , 

3 ENT Ft 20 0 ), ENTG1200 ) , ENT H( 200 ) , QUE 1 , QUE 2 , QUE3 , 
A0UEA,0UE5,0UE6 , OUE 7 , QUE8 , VEC1 (200) ,VEC2 (230) , 

5VEC3( 20 0 ) , ROL 1 t 600 ) ,1 X , K 1 , K3 , K2 , KK , L L , MM , I NGO , 

6 CADET (5 ) ,REKIS (8 ) , CY, Z1 ( 100) , Alt 50) , A2( 50) ,A3( 50) , 
7AA( 50) ,A5(50),A6(50) ,A7(50) , CYCLE 
DIME NS ION BALL (10) 

DATA BALL/ 2^1 , A* 2, A^3/ 

A= 1 0 

IF(K.LT.IO) A=K 
DO 10 1=1, A 
CALL ROLNOt I ,BALL ) 

10 CONTINUE 
BALL ( 1) =1 
BALL ( 2 ) = 1 
BALL (3 ) =1 
BALL ( A ) =2 
BALL ( 5 ) = 2 
BALL 1 6 ) =2 
BALLt 7) =3 
BALL ( 8 ) = 3 
BALL (9 ) =3 
BALLt 10) =3 
IF(K.LT.IO) GO TO 12 
DO 1 1 I =10 ,K 
CALL ROLNOt I ,B ALL) 
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CONT INUE 

KK=1 

LL =1 

MM=1 

RETURN 

END 



SUBROUTINE SROL(K) 



THIS SUBROUTINE DETERMINES THE DISTRIBUTION 
IN THE PROMOTION LIST OF CAPTAINS 



DETERMINA LA DISTRIBUCION EN 
ASCENSO DE CANAV. 



EL CUADRO DE 



IMPLICIT INTEGER ( A-Y) 

COMMON/NADA/ AFRA1200), TESE(200), TEPRII200), 

1CORBE (150) » CAFRAC 100) ,CANAV(80) , CALM(50), VALM(IO), 
2 ENT A ( 10 ) ,ENTB( 50) , ENTC( 80) ,ENTD( 100) , ENTE ( 150) , 

3ENTF (200) » ENT G ( 200 ) ,ENTH(200 ) , QUE1 , QU E2 , OU E3 , 
40UE4,QUE5,QUE6,QUE7,QUE8,VEC1(200) ,VEC2(200) , 
5VEC3(200 ),R0L1 (600 ) , I X , K 1 , K3 , K2 , KK , L L , MM , I NGO , 

6CADE T ( 5 ) ,REKIS(8) ,CY,Z1(100) ,A1(50) »A2(50) ,A3(50), 
7A4(50)*A5(50)»A6(50) »A7(50) .CYCLE 
DIMENSION BALL ( 10 ) 

DATA E5ALL/2*1.4*2,4*3/ 

A= 10 

IF(K.LT.IO) A= K 

DO 10 1=1, A 

CALL ROLNOt I , BALL ) 

10 CONTINUE 
BALL ( 1 ) = 1 
BALL ( 2 ) =1 
BALL ( 3 ) =1 
BALL ( 4 ) = 2 
BALL (5 )=2 
BALL (6) =2 
BALL ( 7 ) =3 
BALL ( 8 ) =3 
BALL ( 9 ) =3 
BALL CIO) =3 

IF(K.LT.IO) GO TO 12 

DO 11 1=10, K 

CALL ROLNO ( I , B ALL ) 

11 CONT INUE 

12 KK = 1 
LL= 1 
MM = 1 
RETURN 
END 
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SUBROUTINE TROLIK) 



THIS SUBROUTINE DETERMINES THE DISTRIBUTION 
IN THE PROMOTION LIST OF COMMANDERS 



DETERMINA LA DISTRIBUTION EN EL CUADRO DE 
ASCENSO DE CAFRA. 



IMPLICIT INTEGER! A-Y ) 

COMMON/NADA/ AFRA( 200) , TESE(200), TE PRI ( 200 ) , 

I CORBE (150), CAFRAt 100 I , CANAV( 80 ) , CALM(50), VALM(IO), 
2EN TA (10) » E NTB (50) T E NTC ( 80 ) , ENT D ( 100 ) , ENT E ( 150 ) , 
3ENTF(200 ) , ENTG ( 200) , EN TH ( 200 ) , QUE I , QUE2 , QUE3 , 

4QUE4 9 OU E5 , 0UE6 9 QUE7 9 QU ES t V EC 1 ( 200 ) , V EC2 ( 20 0 ) » 

5VEC3( 200) , ROLL (600) , I X , K1 , K3 , K2 , KK , L L , MM , INGO, 

6CADET( 5 ),REK IS (8), CY,Z1( 100) , Alt 50 ) ,A2( 5 0) ,A3( 50) , 
7A4(5D) ,A5(5D), A6 ( 5 0 ) , A7 ( 50 ) , CYCLE 
DIMENSION BALL ( 10) 

DATA BALL/2*1 , 4*2, 4*3/ 

A = 1 0 

IF(K.LT.IO) A= K 
DO 10 1=1, A 
CALL ROLNO( I ,BALL) 

10 CONTINUE 
BALL ( 1 ) =1 
BALL ( 2 ) =1 
BALL( 3 ) = 1 
BALL ( 4 ) =2 
BA LL ( 5) =2 
BALL( 6 ) = 2 
BALL ( 7 ) =3 
BALL ( 8) =3 
BALL ( 9 ) =3 
BALL ( 10 ) =3 

IF(K.LT.IO) GO TO 12 

DO 11 I = 10 , K 

CALL ROLNO ( I , B ALL ) 

11 CONTINUE 

12 KK= 1 
LL = 1 
MM = 1 
RETURN 
END 



SUBROUTINE CROL(K) 



THIS SUBROUTINE DETERMINES THE DISTRIBUTION 
IN THE PROMOTION LIST OF LIEUTENANT COMMANDERS 



DETERMINA LA DISTRIBUCION EN EL CUADRO DE 
ASCENSO DE CORBE. 



IMPLICIT INTEGER(A-Y) 

COMMON/NADA/ AFRA(200), TESE(200), TEPRI (200) , 

1C0RBE (150) , CAFRA(IOO) ,CANAV(80), CALM(50), VALMllO), 
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2ENT A ( 10) ,ENTB( 50) t ENTC( 80) ,ENTD( 100) ,ENTE (150) , 

3 ENT F(200),ENTG(200 ) ,ENTH( 200 ) , QUE 1 , QUE 2 , QUE 3 , 
40UF4.QUE5 ,0UE6 ,QU£7 ,QUE8 ,VEC1 (200) ,VEC2(200), 

5V EC3 (200), R0L 1 ( 600 ) , I X , K 1 , K3 , K2 , KK , L L , MM , I NGO , 

6 CADET (5 ) ,REKIS (8 ),CY, Z1 ( 100) , All 50) , A2( 50) ,A3( 50) , 
7A4( 5 0) ,A5( 50) , Ao( 50) ,A7 (5 0) , CYCLE 
DIMENSION BALL ( 10) 

DATA BALL/ 4*1, 3*2, 3*3/ 

DO 10 1 = 1, K 

CALL ROLNOl I , BALL ) 

10 CONTINUE 
KK= 1 
LL= 1 
MM = 1 
RETURN 
END 



SUBROUTINE QROL(K) 



THIS SUBROUTINE DETERMINES THE DISTRIBUTION 
IN THE PROMOTION LIST OF LIEUTENANTS 



DETERMINA LA DISTRIBUCION EN EL CUADRO DE 
ASCENSO DE TEPRI. 



IMPLICIT INTEGER(A-Y) 

COMMON/NADA/ AFRA( 200) , TESE(200), TEPRI (200) , 
1C0RBE1150), CAFRA( 100) , CANAV ( 8 0 ) , CALM ( 50 ) , VALM(IO), 
2ENTA ( 10) ,ENTB(50) .ENTC180) ,ENTD(100) ,ENTE(150 ), 

3ENTF( 20 0 ) , ENTG ( 200) ,ENTH( 200) , QUE1 , 0UE2 ,QUE3 , 
4QUE4,QUE5,QUE6 ,QUE7 ,0UE8,VEC1 (200) , VEC21 200) , 

5 VcC3( 200) , R0L1 ( 6 00 ) , I X , K1 , K3 , K2 , KK , L L , MM , I NGO, 
6CADET(5)*REKIS(8), CY ,Z1(100),A1(50) , A 2(5 0) ,A3(50), 
7A4150) , A5(50) , A6 ( 5 0 ) , A7 ( 50 ) , CYCLE 
DIMENSION BALL (10) 

DATA BALL/4*1 , 3*2, 3*3/ 

DO 10 I =1 , K 
CALL ROLNOl I .BALL) 

10 CONTINUE 
KK = 1 
LL = 1 
MM= 1 
RETURN 
END 



SUBROUTINE SEROL(K) 



THIS SUBROUTINE DETERMINES THE DISTRIBUTION 
IN THE PROMOTION LIST OF L I EUT EN ANTSJ . G. 



DETERMINA LA DISTRIBUCION EN EL CUADRO DE 
ASCENSO DE TESE. 
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IMPLICIT INTEGER! A-Y ) 

COMMON /N ADA / AFRA(200), TESE(200), TEPRI(200), 

1 CORB E (150), CAFRA( 100 ) , CANAV( 80 ) , CALM(50), VALM(10), 
2ENTA( 10) ,ENTB( 50) , E NTC ( 83) , ENTD ( 103 ) , ENT E( 150 ) , 

3ENTF( 20 0 ) , ENTG ( 200 ) ,ENTH( 2 00) , CUE 1 « QUE2 , 0UE3 , 

4QUF4 , QUE5 , QUF6 , QUE7 , GUE8 , VEC1 ( 200 } , VEC2 ( 20 0) , 

5VEC3( 200) ,RGL1 ( 600) ,IX,K1 » K3 , K2 , KK, L L , MM , INGO, 

6CADET ( 5 ) , REK IS ( 8) , CY, Z 1( 100) , A 1( 50) , A2( 50) ,A3( 50) , 

7 A4 ( 5 0) , A5(5D), A6(50 ), A7(50) , CYCLE 
DIMENSION BALL (10) 

DATA BALL/4*1 , 3-2, 3*3/ 

DO 10 I =1 ,K 

CALL R OLNO ( I , B ALL ) 

10 CONTINUE 
KK = 1 
LL = 1 
MM = 1 
RETURN 
END 



SUBROUTINE SPROL(K) 



THIS SUBROUTINE DETERMINES THE DISTRIBUTION 
IN THE PROMOTION LIST OF ENSIGNS 



DETERMINA LA DISTRIBUCION EN EL CUADRO DE 
ASCENSO DE AFRA. 



IMPLICIT INTEGER(A-Y) 

COMMON/NADA/ AFRA(200), TESE(200), T E P R I (200 ), 
1CORBE(150), CAFRA( ICO) ,CANAV( 80) , CALM(50), VALM(IO), 

2 ENT A ( 10 ) , ENTB(50) , ENTC(80) , ENTD( 100 ) , ENTE ( 150) , 

3 ENTF ( 200) ,ENT3(200) ,ENTH(200) , CUE 1 , QU E2 , QU E3 , 
40UE4,0UE5,QUE6,0UE7,QUE8, VEC1( 200) ,VEC2( 200) , 
5VEC3(200) , R0L1 (600 ) , IX ,K1 ,K3 , K2 ,KK, LL, MM, INGO, 

6CADET ( 5 ) ,REKIS(3),CY,Z1(100) , A 1(50) ,A2(50) ,A3(50) , 
7A4(50) , A5(50 ), A6(50 ), A7150) , CYCLE 

DI ME NS I ON BALL ( 10) 

DATA BALL/ 4*1, 3*2, 3^3/ 

DO 10 1=1, K 
CALL ROL NO ( I ,B ALL) 

10 CONTINUE 
KK=1 
LL = 1 
MM= 1 
RETURN 
END 
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SUBROUTINE ROL NO ( I , BALL ) 

C 

c 

c 

c 

C ESTA SUBRUTINA DETER MI NA EL PUESTO EN EL 
C CUADRO DE ASCENSO DE CUALQUIER GRADO 
C 

C THIS SUBROUTINE DETERMINES THE PLACE IN 
C THE PROMOTION LIST IN ANY GRADE 
C 

c 

c 

IMPLICIT INTEGER ( A-Y ) 



COMKON/NADA/ A FRA ( 2 OD ) , TESE(200), TEPRK200), 

1CORBE ( ISO) , CAFRAt 100) ,CANAV( 80) , CALM(50), VALM(IO), 
2 ENT A ( 1 0 ) i ENTB( 50) , ENTCC80) , ENTDI 100) , ENTE ( 150) , 

3ENTF (203) , ENTG ( 200 > ,5 NTH (200) , QUE1 , QUE2 , QUE3 , 
40UE4,QUE5,QUE6,0U£7,QUE8,VEC1( 200) , VEC2( 200) , 

5VEC3 (200 ) , R0L1 ( 600 ) , IX ,K1 ,K3 , K2, KK , LL ,MM , INGO, 

6CADET ( 5) « REK I S ( 8 ) , CY, Z 1 ( 1 00) . Al( 50) .A2 (50) , A3 (50) , 
7A4(50) . A5( 50), A6 < 5 0 ) , A7 ( 50 ) . CYCLE 
DIMENSION 3 ALL (10) 

I X= I X* 6 5 53 9 
Z=0.5+IX~0 .2328306E-9 
J=10*Z+1 
TJ = BAL L ( J ) 

K4 = K1 +K2+K.3 
KKK=KK+ LL+MM 
I F ( KKK . E 0 . K4 ) GO TO 20 
GO TO (11, 12,13), TJ 

11 IF(KK.GE.Kl) DO TO 12 
ROL 1 ( I ) =V EC 1 ( < K ) 

KK=KK+1 

GO TO 2D 

12 IF(LL.GE.K2) DO TO 13 
R0L1 ( I ) =VEC2 (LL ) 

LL=LL+ 1 

GO TO 20 

13 IF(MM.GE.K3) GO TO 11 
R0L1( I ) = V E C 3 ( M M ) 

MM=MM+1 

20 RETURN 
END 

C 

C 

c 

c 

c 

c 

c 



BLOCK DATA 
C 
C 

IMPLICIT I NT EG ER ( A-Y ) 

COMMON/NADA/ AFRA( 200), TESE(200), TEPRK200), 

1C0RBE (150), CAFRA( ICO) , CANAV( 80) , CALM(50), VALM(IO), 

2 ENT A ( 1 0 ) . E NT 3 ( 5 D ) , ENT C ( 8 D ) , ENT D( 10D ), ENTE ( 150), 

3ENTF ( 200) , ENTD ( 200) ,ENTH( 200) .QUE1 ,QUE2 ,Q'JE3 , 

40UE4, OUE5,OUE6 ,0UE7 ,0UE8 , VEC 1 ( 200 ) , VEC2( 200) , 

5VEC3( 2DD) .R0L1 (6 00 ) .IX.K1 . K3 , K2 , KK, L L, MM, INGO, 

6CADE T ( 5 ) ,REK IS( 8) ,CY,Z1( 100) ,A1 ( 50) ,A2(50) ,A3(50) , 

7 A4(50 ) , A5( 50 ) , Afc ( 50 ) , A7 ( 50 ) , CYCL E 
DATA 0UE1.0UE2 . GUE3 , QUE4 .QUE5 , QUE6 , QUE7 , QUE8/0 ,0 ,0, 0,0 
DATA IX, KK.LL, MM/5, 1, 1, 1/ 

END 
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APPENDIX D CARD ASSEMBLY 




6h 



DATA INPUT 



A. PI to P8 DATA CARDS 

There is one card for each officer in the system. A four-digit 
number is punched in col. 1 -1* with the first two digits identifying 
years in the particular grade and the second two digits signifying 
total years in the system. The digit pairs are right adjusted if 
less than 10. 

B. CADETS IN EACH YEAR CARDS 

The total number of cadets goes in col. 1-1;. If the number to 
be punched is less than four digits, it can go in any of the four 
columns mentioned. 

C. P8 to PI REQUIREMENTS CARDS 

The total number of officer required goes in col. 1-1; with the 
same generality as cards in B. 

D. NUMBER OF SIMULATION CYCLES CARD 

The number of years goes in col. 1-1;, with the same generality 
as cards in B. 

E. INPUT SEQUENCE CARDS 

There has to be one card for each year with the total number 
of new cadet inputs on each card. This has to be punched in col. 
1-1;, with the same generality as cards in B. 
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OUTPUTS 



The output is produced in four forms. To produce any of the different 
outputs one has to call it with the number: 

1 . To produce an output listing of all the contents of the data 
base . 

3. To produce a plotting for each grade of the quantity of people 
in the Y axis and the year of simulation in the X axis . 

This call has to be at the end of the simulation but in order 
to fill the necessary vectors of information one has to call 
this subroutine with the number 2 each cycle of the simulation. 

ij. To produce a table showing the number of people promoted from 
one grade to the next each year of simulation. 

!?. To produce a listing of the values of requirements in each 
grade each year, the value of the input to the system each 
year, the cycle number, and the number of cadets in each year 
of the academy, each year. 

An example of output produced with the number 3 is presented in the 
next page. 
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SAMPLE OUTPUT 



TENIENTES 

166. 



152. 



13V. 



126. 



112 . 



99. 



86 . 



SEGUNDOS (TESEJ 

1.00 5.75 10.50 15.25 20.00 




1 .00 


5.75 


10.50 


15.25 


20 .00 


X-SCAlE: 


= 0.23 7E 00 UNITS 








Y-SCALE : 


M *" = 0.133E 01 UNITS 









166.00 



152. 67 



139.33 



126.00 



112. 67 



99.33 



86.00 
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